'Required for access to system variables and to keep settings stored in memory
'Not having all of them will result in pc/OS 5 crashing or malfunctioning
'Not having all of the variables will result in your pc/OS 5 Permit being revoked
'You can apply for a free permit allowing you to show the "pc/OS Comaptible" logo
'and giving you access to all pc/OS 5 developer information by writing to:
'Peter Chapman
'43 Ruapehu Road
'Ohakune
'New Zealand
'
'Supply your email address and I will supply the Windows BMP image of the logo.

'WARNING - You Must Have All Shared Values Declared Alphabetically!!!
COMMON SHARED pcosAppFinished AS INTEGER
COMMON SHARED pcosCallerApp AS STRING
COMMON SHARED pcosCallerPath AS STRING
COMMON SHARED pcosFilename AS STRING
COMMON SHARED pcosName AS STRING
COMMON SHARED pcosPath AS STRING
COMMON SHARED pcosVersion AS STRING

PRINT "This Is A Sample - Press Any Key To Continue"
DO: LOOP UNTIL INKEY$ <> ""

'To Stop DOS Errors
IF pcosCallerApp = "" THEN END

'Exit
pcosAppFinished = 1 'Say App Finished (Optional)
CHAIN (pcosCallerPath + "\" + pcosCallerApp) 'Return To Starter Program.